home *** CD-ROM | disk | FTP | other *** search
- inherited CueForm: TCueForm
- Caption = 'Cue Points'
- ClientHeight = 272
- ClientWidth = 376
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object CueListLabel: TStaticText [0]
- Left = 8
- Top = 5
- Width = 47
- Height = 17
- Caption = '&Cue list:'
- FocusControl = List
- TabOrder = 0
- end
- inherited ButtonCancel: TButton [1]
- Left = 294
- Top = 74
- Anchors = [akTop, akRight]
- TabOrder = 6
- Visible = False
- end
- inherited ButtonOk: TButton [2]
- Left = 294
- Top = 10
- Anchors = [akTop, akRight]
- Caption = 'Close'
- TabOrder = 5
- end
- inherited ButtonHelp: THelpButton
- Left = 294
- Top = 42
- Anchors = [akTop, akRight]
- TabOrder = 7
- HelpKey = 'tool_cuepoints'
- end
- object List: TListView
- Left = 8
- Top = 22
- Width = 275
- Height = 211
- Columns = <
- item
- Caption = 'Position'
- Width = 100
- end
- item
- AutoSize = True
- Caption = 'Name'
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- PopupMenu = ListMenu
- SortType = stData
- TabOrder = 1
- ViewStyle = vsReport
- OnColumnClick = ListColumnClick
- OnCompare = ListCompare
- OnDblClick = ListDblClick
- end
- object NewButton: TButton
- Left = 21
- Top = 241
- Width = 75
- Height = 25
- Action = New
- Anchors = [akLeft, akBottom]
- Caption = '&New...'
- TabOrder = 2
- end
- object EditButton: TButton
- Left = 106
- Top = 241
- Width = 75
- Height = 25
- Action = Edit
- Anchors = [akLeft, akBottom]
- Caption = '&Edit...'
- TabOrder = 3
- end
- object DeleteButton: TButton
- Left = 191
- Top = 241
- Width = 75
- Height = 25
- Action = Delete
- Anchors = [akLeft, akBottom]
- Caption = '&Delete'
- TabOrder = 4
- end
- object SplitButton: TButton
- Left = 293
- Top = 144
- Width = 75
- Height = 25
- Action = Split
- Anchors = [akTop, akRight]
- TabOrder = 9
- end
- object SilenceButton: TButton
- Left = 293
- Top = 176
- Width = 75
- Height = 25
- Action = Auto
- Anchors = [akTop, akRight]
- TabOrder = 10
- end
- object CopyButton: TButton
- Left = 294
- Top = 112
- Width = 75
- Height = 25
- Action = Copy
- TabOrder = 8
- end
- object LoadAll: TBitton
- Left = 297
- Top = 241
- Width = 30
- Height = 25
- Image.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 88888888888888888888000000000008888800333333333088880B0333333333
- 08880FB03333333330880BFB0333333333080FBFB000000000000BFBFBFBFB08
- 88880FBFBFBFBF0888880BFB0000000888888000888888880008888888888888
- 8008888888880888080888888888800088888888888888888888}
- FocusAllowed = True
- Action = Import
- ParentShowHint = False
- ShowHint = True
- TabStop = True
- TabOrder = 11
- end
- object SaveAll: TBitton
- Left = 335
- Top = 241
- Width = 30
- Height = 25
- Image.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888880000000000000880330000008803088033000000880308803300000088
- 0308803300000000030880333333333333088033000000003308803088888888
- 0308803088888888030880308888888803088030888888880308803088888888
- 0008803088888888080880000000000000088888888888888888}
- FocusAllowed = True
- Action = Export
- ParentShowHint = False
- ShowHint = True
- TabStop = True
- TabOrder = 12
- end
- object ActionList: TActionList
- Left = 298
- Top = 205
- object New: TAction
- Caption = 'New...'
- OnExecute = NewExecute
- end
- object Edit: TAction
- Caption = 'Edit...'
- OnExecute = EditExecute
- OnUpdate = CueSelectedEnable
- end
- object Delete: TAction
- Caption = 'Delete'
- OnExecute = DeleteExecute
- OnUpdate = CueSelectedEnable
- end
- object Split: TAction
- Caption = 'Split File...'
- OnExecute = SplitExecute
- OnUpdate = CueExistsEnable
- end
- object Auto: TAction
- Caption = 'Auto Cue...'
- OnExecute = AutoExecute
- end
- object SetStart: TAction
- Caption = 'Set Start Marker'
- OnExecute = SetStartExecute
- OnUpdate = CueBeforeFinishEnable
- end
- object SetFinish: TAction
- Caption = 'Set Finish Marker'
- OnExecute = SetFinishExecute
- OnUpdate = CueBeforeStartEnable
- end
- object MoveToStart: TAction
- Caption = 'Move To Start Marker'
- OnExecute = MoveToStartExecute
- OnUpdate = CueSelectedEnable
- end
- object MoveToFinish: TAction
- Caption = 'Move To Finish Marker'
- OnExecute = MoveToFinishExecute
- OnUpdate = CueSelectedEnable
- end
- object Copy: TAction
- Caption = 'Copy All'
- OnExecute = CopyExecute
- OnUpdate = CueExistsEnable
- end
- object Export: TAction
- Caption = 'Export'
- Hint = 'Export to CD cue file'
- OnExecute = ExportExecute
- OnUpdate = CueExistsEnable
- end
- object Import: TAction
- Caption = 'Import'
- Hint = 'Import from CD cue file'
- OnExecute = ImportExecute
- end
- end
- object ListMenu: TPopupMenu
- Left = 336
- Top = 205
- object Delete1: TMenuItem
- Action = Edit
- end
- object Delete2: TMenuItem
- Action = Delete
- end
- object SetFinishMarker1: TMenuItem
- Action = SetStart
- end
- object SetFinishMarker2: TMenuItem
- Action = SetFinish
- end
- object MoveToFinishMarker1: TMenuItem
- Action = MoveToStart
- end
- object MoveToFinishMarker2: TMenuItem
- Action = MoveToFinish
- end
- end
- object OpenCue: TOpenDialog
- DefaultExt = 'cue'
- Filter = 'Cue (*.cue)|*.cue|All (*.*)|*.*'
- Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing]
- Title = 'Import Cue Points'
- Left = 202
- Top = 2
- end
- object SaveCue: TSaveDialog
- DefaultExt = 'cue'
- Filter = 'Cue (*.cue)|*.cue|All (*.*)|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
- Title = 'Export Cue Points'
- Left = 232
- Top = 2
- end
- end
-